home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / NONSIZE.ZIP;1 / FORM2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-12-29  |  1.3 KB  |  45 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Non-sizable Standard Form"
  4.    ClientHeight    =   2355
  5.    ClientLeft      =   1500
  6.    ClientTop       =   3345
  7.    ClientWidth     =   4200
  8.    Height          =   2760
  9.    Left            =   1440
  10.    LinkTopic       =   "Form3"
  11.    ScaleHeight     =   2355
  12.    ScaleWidth      =   4200
  13.    Top             =   3000
  14.    Width           =   4320
  15.    Begin SubClassEZ_demo SubClass1 
  16.       Height          =   420
  17.       Left            =   0
  18.       Top             =   0
  19.       Width           =   420
  20.    End
  21. Option Explicit
  22. Sub Form_Load ()
  23.     NoSizeMenu (Me.hWnd)
  24.     SubClass1.HwndParam = Me.hWnd
  25. End Sub
  26. Sub SubClass1_MsgQueue (wnd As Integer, msg As Integer, wp As Integer, lp As Long, retval As Long, doDef As Integer)
  27.     Dim wLo As Integer
  28.     Dim wHi As Integer
  29.     ' get low word of lParam
  30.     wLo = LoWord(lp)
  31.     ' get high word of lParam
  32.     wHi = HiWord(lp)
  33.     ' if cursor is being set...
  34.     If msg = WM_SETCURSOR Then
  35.         ' and it's over the border...
  36.         If wLo >= HTLEFT And wLo <= HTBOTTOMRIGHT Then
  37.         ' tell app cursor is over background
  38.         wLo = HTCLIENT
  39.         lp = MakeLong(wLo, wHi)
  40.         End If
  41.     ElseIf msg = WM_LBUTTONDOWN Then
  42.         wp = HTCLIENT
  43.     End If
  44. End Sub
  45.